home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / misc / adhelp10.lha / ADHelp10 / rexx / ADHelp.edge < prev    next >
Encoding:
Text File  |  1994-06-11  |  1023 b   |  63 lines
  1. /* rexx-scrip for EDGE to use ADHELP */
  2. /* start this script from EDGE */
  3.  
  4. /* Window coordinates for help window */
  5.  
  6. LeftEdge  =   0
  7. TopEdge   = 250
  8. Width     = 800
  9. Height    = 250
  10.  
  11. OPTIONS results
  12.  
  13. GetEnvVar _WE_ByteColumn RAW
  14. Spalte=result
  15.  
  16. GetEnvVar _WE_CLine RAW
  17. Zeile=result
  18.  
  19. ADDRESS ADHELP
  20.  
  21. Help BYTEOFFS Spalte STRING Zeile
  22. erg=result
  23. if rc>0 then
  24. erg="TEXT ADHelp: needed argument missing!"
  25.  
  26. ADDRESS EDGE
  27.  
  28. if left(erg,5)="TEXT " then
  29. do
  30.     erg=delstr(erg,1,5)
  31.     RequestNotify TITLE "ADHelp" STRING erg
  32. end
  33. else
  34. if left(erg,5)="FILE " then
  35. do
  36.     new LeftEdge TopEdge Width Height
  37.     new_res=result
  38.     address value new_res
  39.     erg=delstr(erg,1,5)
  40.     open erg
  41. end
  42. else
  43. if left(erg,7)="SELECT " then
  44. do
  45.     new LeftEdge TopEdge Width Height
  46.     new_res=result
  47.     address value new_res
  48.     erg=delstr(erg,1,7)
  49.     open erg
  50. end
  51. else
  52. if left(erg,7)="INCLUDE " then
  53. do
  54.     new LeftEdge TopEdge Width Height
  55.     new_res=result
  56.     address value new_res
  57.     erg=delstr(erg,1,8)
  58.     byteoffs=word(erg,1)
  59.     erg=delword(erg,1,1)
  60.     open erg
  61.     GoToByte byteoffs
  62. end
  63.